home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Demos / hello.stklos < prev    next >
Encoding:
Text File  |  1996-07-21  |  511 b   |  18 lines
  1. #!/bin/sh
  2. :;exec /usr/local/bin/stk -f "$0" "$@"
  3. ;; Simple Tk script to create a button that prints "Hello, world".
  4. ;; Click on the button to terminate the program.
  5. ;; 
  6. ;; The first line below creates the button, and the second line
  7. ;; arranges for packer to manage the button's geometry, centering
  8. ;; it in the application's main window.
  9.  
  10. (require "Tk-classes")
  11.  
  12. (define b (make <Button> :text "Hello, world" 
  13.              :command (lambda () 
  14.                     (format #t "Hello, world~%")
  15.                     (destroy *root*))))
  16. (pack b)
  17.  
  18.